﻿Public Class frmImprimir

    Private Sub frmImprimir_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BoletaPaciente1.SetParameterValue("codigoboleta", cB.Boleta_codigo_Boleta)
    End Sub

    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
        BoletaPaciente1.SetParameterValue("codigoboleta", cB.Boleta_codigo_Boleta)
    End Sub

    Private Sub btncerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncerrar.Click
        Me.Close()
    End Sub
End Class